VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "CSelectedFiles"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Attribute VB_Ext_KEY = "SavedWithClassBuilder6" ,"Yes"
Attribute VB_Ext_KEY = "Top_Level" ,"Yes"
Option Explicit

'===================================================
'  Class to represent a single specification
'  for selected files (include or exclude)
'===================================================

Private mPathFileMask As String
Private mAttributes As Long
Private mSubdirectories As Boolean
Private mStartDate As Date
Private mEndDate As Date


Public Property Let EndDate(ByVal vData As Date)
    mEndDate = vData
End Property

Public Property Get EndDate() As Date
    EndDate = mEndDate
End Property


Public Property Let StartDate(ByVal vData As Date)
    mStartDate = vData
End Property

Public Property Get StartDate() As Date
    StartDate = mStartDate
End Property


Public Property Let Subdirectories(ByVal vData As Boolean)
    mSubdirectories = vData
End Property

Public Property Get Subdirectories() As Boolean
    Subdirectories = mSubdirectories
End Property


Public Property Let Attributes(ByVal vData As Long)
    mAttributes = vData
End Property

Public Property Get Attributes() As Long
    Attributes = mAttributes
End Property


Public Property Let PathFileMask(ByVal vData As String)
    mPathFileMask = vData
End Property

Public Property Get PathFileMask() As String
    PathFileMask = mPathFileMask
End Property



